*Figure 1

use "Data_ImportantProvisions_240423.dta", clear

bysort cat1: gen counted = _n
bysort cat1: egen count_values_cat = max(counted)
graph hbar count_values_cat, over(cat1, sort(count_values_cat) descending relabel(1 "Amendment" 2 "Culture and Identity" 3 "Elections" 4 "Executive" 5 "Federalism" 6 "International Law" 7 "Judiciary" 8 "Legislature" 9 "Principle and Symbols" 10 "Regulation and Oversight" 11 " Rights and Duties" 12 "Special Sections")) ytitle("Number of Topics") ylabel(0(25)125) blabel(bar, color(black) position(inside) size(vsmall) gap(-3))

graph export "Figure_1.pdf", replace

